home *** CD-ROM | disk | FTP | other *** search
/ PC Format (UK) 188 / 01-04 PC Format 188 [2006-06] DVD side 1_.iso / Menus / Scenes / HOME.dir / 00020_Script_install_folder_script < prev    next >
Text File  |  2006-04-20  |  514b  |  34 lines
  1. property Sp
  2. property myPath
  3.  
  4.  
  5. on init me, aSpritenum, aPath
  6.   Sp = sprite(aSpritenum)
  7.   myPath = aPath
  8.   Sp.ink = 0
  9.   member("install_button_over").regpoint = point(0,0)
  10. end
  11.  
  12. on mouseEnter me
  13.   cursor 280
  14.   Sp.member = member("install_button_over")
  15. end
  16.  
  17. on mouseLeave me
  18.   cursor -1
  19.   Sp.member = member("install_button")
  20. end
  21.  
  22. on mouseUp me
  23.   ok = baOpenFile(myPath, "normal")
  24.   
  25.   if ok < 32 then
  26.     alert("file not found or error with: " & myPath)
  27.   end if
  28.   Sp.ink = 0
  29. end
  30.  
  31.  
  32.  
  33.  
  34.